home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / intro.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  371 b   |  17 lines
  1. global gCurKeyList, gWorld, gLastKeyList, gKeyRef
  2.  
  3. on initThisFrame
  4.   repeat with thisSprite = 1 to 48
  5.     puppetSprite(thisSprite, 1)
  6.   end repeat
  7.   set gKeyRef to #trans
  8.   set gCurKeyList to getaProp(gWorld, #trans)
  9.   set gLastKeyList to getaProp(gWorld, #trans)
  10. end
  11.  
  12. on unDoInitIntro
  13.   repeat with thisSprite = 1 to 48
  14.     puppetSprite(thisSprite, 0)
  15.   end repeat
  16. end
  17.